home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / extraurb / mi022.dir / 00026_Script_26 < prev    next >
Text File  |  1983-01-30  |  516b  |  22 lines
  1. on enterframe
  2.   cursor 4
  3.   sound close 1
  4. end
  5. on exitframe
  6.   global pallina_chiusa,audio_barrato,lista_en_viaggio,canale_audio,audio_intro,canale_pallina,viff_da,viff_a,pallina_aperta,dove_articolo
  7.   global audio,pallina,dove,a_blocca,a_blocca
  8.   vitt 1,48
  9.   spegni_canali
  10.   if dove <> dove_articolo+1 then
  11.     set dove to 0
  12.     set a_blocca to false
  13.   end if
  14.   set audio to audio_barrato
  15.   set pallina to pallina_aperta
  16.   viff viff_da,viff_a
  17.   gestione_cursori   -- ex curan e curap
  18.   
  19.   
  20.   
  21. end
  22.